/*  <SecCrypt CPL V3R05>  */
 
//  callouts.c

inherit  F_CLEAN_UP;

int  main(object  me,  string  arg)
{
	mixed  *info;
	int  i;
	string  output;

	output  =  sprintf("%-30s  %-20s  %5s  %s\n",  "物件",  "函数",  "延迟时间",  "参数");  
	if(  arg  &&  arg!=""  )
		info  =  filter_array(call_out_info(),  (:  $1[1]==$2  :),  arg);
	else
		info  =  call_out_info();

	for(i=0;  i<sizeof(info);  i++)  {
		if  (  sizeof(info[i])  ==  4)
			output  +=  sprintf("%-30O  %-20s  %5d  %O\n",
				info[i][0],  info[i][1],  info[i][2],  info[i][3]  );
		else
			output  +=  sprintf("%-30O  %-20s  %5d\n",
				info[i][0],  info[i][1],  info[i][2]  );
	}

	me->start_more(output);
	return  1;
}

int  help()
{
	write(@LONG
指令格式：callouts  [<函数名称>]

List  all  the  system  callouts,  or,  a  particular  callouts  
specified  as  a  parameter.

LONG
	);
	return  1;
}
